Procedure HeadingIcon(Active:Boolean)

    Active = True

    This adds a button to  the  linked  list  of buttons (for the current
    window) pointing to the window heading.

    The heading is not redrawn.

    Active = False

    This removes the heading button from the list.